home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / SoftTimer / SoftTimerTest.e < prev    next >
Encoding:
Text File  |  1998-05-06  |  937 b   |  41 lines
  1. MODULE 'oomodules/softtimer_oo'
  2.  
  3. PROC main() HANDLE
  4.  DEF x, y, st:PTR TO softtimer
  5.  NEW st.softtimer()
  6.  
  7.  st.startTimer(4,500000) -> 4.5 seconds
  8.  st.waitForTimer()       -> will wait the 4.5 secs
  9.  
  10.  st.delay(60) -> delay one minute
  11.  
  12.  FOR x:=0 TO 99
  13.   st.waitAndRestart(0,150000) -> make the loop go in constant speed
  14.                               -> indemendent of the CPU!
  15.   FOR y:=0 TO 10000 -> do someting slow..
  16.   ENDFOR            -> ..like texturemapping ;)
  17.  ENDFOR
  18.  
  19.  st.startTimer(3)
  20.  REPEAT
  21.   ping() -> just something stupid for 3 seconds
  22.  UNTIL st.getTimerMsg()=TRUE
  23.  
  24. EXCEPT DO
  25.  SELECT exception
  26.  CASE ERR_DEV
  27.   WriteF('Could not open timer.device!\n')
  28.  CASE ERR_TIMER
  29.   WriteF('Could not create timerrequest!\n')
  30.  CASE ERR_MSGPORT
  31.   WriteF('Could not create mesport!\n')
  32.  CASE ERR_NONE
  33.   END st      ->>> stop timer and delete msg-ports!
  34.  DEFAULT
  35.   WriteF('Out of memory or something!\n')
  36.  ENDSELECT
  37. ENDPROC
  38.  
  39. PROC ping()
  40. ENDPROC
  41.